00100	<	ADDITIVE SYNTHESIS INSTRUMENT(S) H1 THRU H6
00200	<
00300	<	P1=BEGIN TIME OF HARMONIC.
00400	<	P2=DURATION OF HARMONIC.
00500	<	P3=HARMONIC NUMBER (CAN BE DECIMAL, E.G. 1.2).
00600	<	P4=AMPLITUDE (THE OVERALL TOTAL MUST BE UNDER 2000).
00700	<	P5=ATTACK TIME.
00800	<	P6=DECAY TIME.
00900	<	P7=FUNCTION FOR ATTACK & DECAY 
01000	<	  FILE "AFUNS.DAT"  F1=LINES, F2=CURVES, F4=EXPONENTIAL.
01100	<	P8=FREQUENCY OF FUNDAMENTAL.
01200	<	P7 AND P8 NEED ONLY BE SPECIFIED WITH THE FIRST NOTE.
01300	
01400	VARIABLE /V1,/V2,/V3,/V4,/V5,/V6;
01500	COMPILE;
01600	
01700	INSTRUMENT H1;
01800	LINEN(P4,P5,P6,P2,P7,V1);
01900	OSCIL(U1,MAG*P8*P3,F3);
02000	OUTA←OUTA+U2;
02100	END;
02200	
02300	INSTRUMENT H2;
02400	LINEN(P4,P5,P6,P2,P7,V2);
02500	OSCIL(U1,MAG*P8*P3,F3);
02600	OUTA←OUTA+U2;
02700	END;
02800	
02900	INSTRUMENT H3;
03000	LINEN(P4,P5,P6,P2,P7,V3);
03100	OSCIL(U1,MAG*P8*P3,F3);
03200	OUTA←OUTA+U2;
03300	END;
03400	
03500	INSTRUMENT H4;
03600	LINEN(P4,P5,P6,P2,P7,V4);
03700	OSCIL(U1,MAG*P8*P3,F3);
03800	OUTA←OUTA+U2;
03900	END;
04000	
04100	INSTRUMENT H5;
04200	LINEN(P4,P5,P6,P2,P7,V5);
04300	OSCIL(U1,MAG*P8*P3,F3);
04400	OUTA←OUTA+U2;
04500	END;
04600	
04700	INSTRUMENT H6;
04800	LINEN(P4,P5,P6,P2,P7,V6);
04900	OSCIL(U1,MAG*P8*P3,F3);
05000	OUTA←OUTA+U2;
05100	END;
05200	
05300	FINISH;